home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / fastdisp.pas < prev    next >
Pascal/Delphi Source File  |  1985-11-25  |  1KB  |  42 lines
  1. program fastdisp;
  2.  
  3. type
  4.     astring = string [255];
  5.  
  6. var
  7.    str1,str2 : astring;
  8.    row,col   : integer;
  9.  
  10. procedure fastdisplay (var s: astring; var r,c :integer);
  11. begin
  12.      INLINE (
  13.  
  14. $8b/$5e/$04/$8b/$3f/$4f/$8b/$5e/$08/$8b/$07/$4b/$8b/$5e/$0c/
  15. $32/$ed/$8a/$0f/$80/$f9/$00/$74/$40/$c4/$76/$0c/$46/$bb/$40/
  16. $00/$8e/$c3/$26/$f7/$26/$4a/$00/$03/$f8/$d1/$e7/$26/$8b/$16/
  17. $63/$00/$83/$c2/$06/$b8/$00/$b8/$26/$8b/$1e/$10/$00/$81/$e3/
  18. $30/$00/$83/$fb/$30/$75/$03/$b8/$00/$b0/$8e/$c0/$ec/$a8/$01/
  19. $75/$fb/$fa/$ec/$a8/$01/$74/$fb/$a4/$47/$e2/$f1/$fb
  20. )
  21. end;
  22.  
  23. begin
  24.      str1:='TURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBOTURBO';
  25.      str2:='FASTDISPLAYFASTDISPLAYFASTDISPLAYFASTDISPLAYFASTDISPLAYFASTDISPLAY';
  26.      clrscr;
  27.      for row:=1 to 24 do
  28.          begin
  29.               gotoxy(1,row);
  30.               write(str1);
  31.          end;
  32. clrscr;
  33.      for row:=1 to 24 do
  34.          begin
  35.               col:=1;
  36.               fastdisplay (str2,row,col);
  37.  
  38.          end;
  39.  
  40. end.
  41.  
  42.